home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 March / PCWMAR06.iso / Software / Trial / Ability Office 2004 / data.cab / abData.bi < prev    next >
Encoding:
Text File  |  2005-08-03  |  22.5 KB  |  670 lines
  1. <begin>
  2.  
  3. class DoCmd /// Commands using database objects ///
  4. {
  5. [methods:
  6.     [id(0x000003eb), helpstring("method Beep")]
  7.     HRESULT Beep();
  8.     [id(0x000003f0), helpstring("method Echo")]
  9.     HRESULT Echo(VARIANT EchoOn, VARIANT StatusBarText);
  10.     [id(0x000003f7), helpstring("method Maximize")]
  11.     HRESULT Maximize();
  12.     [id(0x000003f8), helpstring("method Minimize")]
  13.     HRESULT Minimize();
  14.     [id(0x000003f9), helpstring("method MoveSize")]
  15.     HRESULT MoveSize(VARIANT Right, VARIANT Down, VARIANT Width, VARIANT Height);
  16.     [id(0x000003fb), helpstring("method OpenDBForm")]
  17.     HRESULT OpenDBForm(VARIANT FormName);
  18.     [id(0x000003fc), helpstring("method OpenQuery")]
  19.     HRESULT OpenQuery(VARIANT QueryName);
  20.     [id(0x000003fd), helpstring("method OpenTable")]
  21.     HRESULT OpenTable(VARIANT Name);
  22.     [id(0x00000600), helpstring("method OpenRelation")]
  23.     HRESULT OpenRelation(VARIANT RelationName);
  24.  
  25.     [id(0x000003ff), helpstring("method Quit")]
  26.     HRESULT Quit(AbdQuitOption Options);
  27.     [id(0x0000040f), helpstring("method OpenReport")]
  28.     HRESULT OpenReport(VARIANT ReportName);
  29.  
  30.     [id(0x00000403), helpstring("method Restore")]
  31.     HRESULT Restore();
  32.  
  33.     [id(0x00000406), helpstring("method RunMacro")]
  34.     HRESULT RunMacro( VARIANT MacroName, VARIANT RepeatCount);
  35. ]
  36. };
  37.  
  38.  
  39. class Application //////
  40. {
  41. [properties:
  42.     [id(0x000007d5), propget, helpstring("property Application")]
  43.     HRESULT Application([retval] Application **ppRet);
  44.     [id(0x00000827), propget, helpstring("property Parent")]
  45.     HRESULT Parent([retval] IDispatch **ppRet);
  46.     [id(0x000007db), propget, helpstring("property CurrentObjectType")]
  47.     HRESULT CurrentObjectType([retval] AbdObjectType *pRet);
  48.     [id(0x000007dc), propget, helpstring("property CurrentObjectName")]
  49.     HRESULT CurrentObjectName([retval] BSTR *pRet);
  50.     [id(0x000007d2), propget, helpstring("property DBForms")]
  51.     HRESULT DBForms([retval] IDBForms **ppRet);
  52.     [id(0x000007d3), propget, helpstring("property Queries")]
  53.     HRESULT Queries([retval] IQueries **ppRet);
  54.     [id(0x000007d4), propget, helpstring("property Relations")]
  55.     HRESULT Relations([retval] IRelations **ppRet);
  56.     [id(0x000007d6), propget, helpstring("property Reports")]
  57.     HRESULT Reports([retval] IReports **ppRet);
  58.     [id(0x000007d7), propget, helpstring("property Tables")]
  59.     HRESULT Tables([retval] ITables **ppRet);
  60.     [id(0x000007e9), propget, helpstring("property DoCmd")]
  61.     HRESULT DoCmd([retval] IDoCmd **pRet);
  62.     [id(0x00000864), propget, helpstring("property Visible")]
  63.     HRESULT Visible([retval] VARIANT_BOOL *pfVisible);
  64.     [id(0x00000864), propput, helpstring("property Visible")]
  65.     HRESULT Visible(VARIANT_BOOL fVisible);
  66.     [id(0x00000865), propget, helpstring("property UserControl")]
  67.     HRESULT UserControl([retval] VARIANT_BOOL *pfUserCtrl);
  68.     [id(0x00000865), propput, helpstring("property UserControl")]
  69.     HRESULT UserControl(VARIANT_BOOL fUserCtrl);
  70.     [id(0x0000083e), propget, helpstring("property DBEngine")]
  71.     HRESULT DBEngine([retval] DBEngine **ppRet );
  72.     [propget, id(1), helpstring("property Databases")] 
  73.     HRESULT Databases([retval] IDatabases* *pVal);
  74.     [propget, id(2), helpstring("property ActiveDatabase")] 
  75.     HRESULT ActiveDatabase([retval] IDatabase* *pVal);
  76.     [propget, id(3), helpstring("property ActiveDataObject")] 
  77.     HRESULT ActiveDataObject([retval] IDispatch* *pVal);
  78.     [propget, id(4), helpstring("property ActiveRecord")] 
  79.     HRESULT ActiveRecord([retval] Fields* *pVal);
  80.  
  81.  
  82.     [id(0x000006d2), propget, helpstring("property ToolbarsVisible")]
  83.     HRESULT ToolbarsVisible([retval] VARIANT_BOOL *pfVisible);
  84.     [id(0x000006d2), propput, helpstring("property ToolbarsVisible")]
  85.     HRESULT ToolbarsVisible(VARIANT_BOOL fVisible);
  86.     
  87.     [id(0x000006d3), propget, helpstring("property MenusVisible")]
  88.     HRESULT MenusVisible([retval] VARIANT_BOOL *pfVisible);
  89.     [id(0x000006d3), propput, helpstring("property MenusVisible")]
  90.     HRESULT MenusVisible(VARIANT_BOOL fVisible);
  91.  
  92.  
  93.  
  94.  
  95. ]
  96. [methods:
  97.     [id(0x0000085e), helpstring("method NewCurrentDatabase")]
  98.     HRESULT NewCurrentDatabase(BSTR filepath);
  99.     [id(0x0000085c), helpstring("method OpenCurrentDatabase")]
  100.     HRESULT OpenCurrentDatabase(BSTR filepath, VARIANT_BOOL Exclusive);
  101.     [id(0x000007df), helpstring("method Echo")]
  102.     HRESULT Echo(short EchoOn, BSTR bstrStatusBarText);
  103.     [id(0x0000085d), helpstring("method CloseCurrentDatabase")]
  104.     HRESULT CloseCurrentDatabase();
  105.     [id(0x000007e0), helpstring("method Quit")]
  106.     HRESULT Quit(AbdQuitOption Option);
  107.     [id(0x00000801), helpstring("method CurrentDb")]
  108.     HRESULT CurrentDb([retval] Database **ppRet);
  109.     [id(0x0000086e), helpstring("method RefreshTitleBar")]
  110.     HRESULT RefreshTitleBar();
  111.     [id(0x0000088a), helpstring("method RefreshDatabaseWindow")]
  112.     HRESULT RefreshDatabaseWindow();
  113. ]
  114. };
  115.  
  116.  
  117. class DBForms //////
  118. {
  119. [properties:
  120.     [id(2005), propget, helpstring("property Application")]
  121.     HRESULT Application( retval Application **ppRet);
  122.     [id(2087), propget, helpstring("property Parent")]
  123.     HRESULT Parent( retval IDispatch **ppRet);
  124.     [id(00000000), propget, helpstring("property Item")]
  125.     HRESULT Item( VARIANT Index,  retval DBForm **ppRet);
  126.     [id(2001), propget, helpstring("property Count")]
  127.     HRESULT Count( retval long *pRet);
  128. ]
  129. [methods:
  130.     [id(1), helpstring("method Open")] 
  131.     HRESULT Open(VARIANT Index, [retval]DBForm** ppRet);
  132. ]
  133. };
  134.  
  135. class Tables //////
  136. {
  137. [properties:
  138.     [id(2005), propget, helpstring("property Application")]
  139.     HRESULT Application( retval Application **ppRet);
  140.     [id(2087), propget, helpstring("property Parent")]
  141.     HRESULT Parent( retval IDispatch **ppRet);
  142.     [id(00000000), propget, helpstring("property Item")]
  143.     HRESULT Item( VARIANT Index,  retval ABTable **ppRet);
  144.     [id(2001), propget, helpstring("property Count")]
  145.     HRESULT Count( retval long *pRet);
  146. ]
  147. [methods:
  148.     [id(1), helpstring("method Open")] 
  149.     HRESULT Open(VARIANT Index, [retval]ABTable** ppRet);
  150. ]
  151. };
  152.  
  153. class Queries //////
  154. {
  155. [properties:
  156.     [id(2005), propget, helpstring("property Application")]
  157.     HRESULT Application( retval Application **ppRet);
  158.     [id(2087), propget, helpstring("property Parent")]
  159.     HRESULT Parent( retval IDispatch **ppRet);
  160.     [id(00000000), propget, helpstring("property Item")]
  161.     HRESULT Item( VARIANT Index,  retval ABQuery **ppRet);
  162.     [id(2001), propget, helpstring("property Count")]
  163.     HRESULT Count( retval long *pRet);
  164. ]
  165. [methods:
  166.     [id(1), helpstring("method Open")] 
  167.     HRESULT Open(VARIANT Index, [retval]ABQuery** ppRet);
  168. ]
  169. };
  170.  
  171. class Relations //////
  172. {
  173. [properties:
  174.     [id(2005), propget, helpstring("property Application")]
  175.     HRESULT Application( retval Application **ppRet);
  176.     [id(2087), propget, helpstring("property Parent")]
  177.     HRESULT Parent( retval IDispatch **ppRet);
  178.     [id(00000000), propget, helpstring("property Item")]
  179.     HRESULT Item( VARIANT Index,  retval ABRelation **ppRet);
  180.     [id(2001), propget, helpstring("property Count")]
  181.     HRESULT Count( retval long *pRet);
  182. ]
  183. [methods:
  184.     [id(1), helpstring("method Open")] 
  185.     HRESULT Open(VARIANT Index, [retval]ABRelation** ppRet);
  186. ]
  187. };
  188.  
  189.  
  190. class Properties //////
  191. {
  192. [properties:
  193.     [id(2005), propget, helpstring("property Application")]
  194.     HRESULT Application( retval Application **ppRet);
  195.     [id(2087), propget, helpstring("property Parent")]
  196.     HRESULT Parent( retval IDispatch **ppRet);
  197.     [id(00000000), propget, helpstring("property Item")]
  198.     HRESULT Item( VARIANT Index,  retval IDispatch **ppRet);
  199.     [id(2001), propget, helpstring("property Count")]
  200.     HRESULT Count( retval long *pRet);
  201. ]
  202. };
  203.  
  204. class DBForm //////
  205. {
  206. [properties:
  207.     [id(0x00000027), propget, helpstring("property Name")]
  208.     HRESULT Name( retval BSTR *pRet);
  209.     [id(0x00000027), propput, helpstring("property Name")]
  210.     HRESULT Name( BSTR Val);
  211.  
  212.     [id(0x00000829), propget, helpstring("property DBForm")]
  213.     HRESULT DBForm([retval] DBForm **ppRet);
  214.     [id(0x0000082b), propget, helpstring("property Properties")]
  215.     HRESULT Properties([retval] IProperties **ppRet);
  216.  
  217.     [id(00000000), propget, helpstring("property Controls")]
  218.     HRESULT Controls( retval IControls **ppRet);
  219.     [propget, id(3), helpstring("property Database")] 
  220.     HRESULT Database([retval] IDatabase* *pVal);
  221.     [propget, id(4), helpstring("property Type")] 
  222.     HRESULT Type([retval] long *pVal);
  223.  
  224.     [id(0x0000014e), propget, helpstring("property CurrentRecord")]
  225.     HRESULT CurrentRecord([retval] long *pRet);
  226.  
  227.  
  228.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  229.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  230.  
  231.     [id(1), helpstring("property Fields")]
  232.     HRESULT Fields( retval Fields ** ppRet);
  233.     
  234.     [propget, id(0x000000f8), helpstring("property RecordCount")] 
  235.     HRESULT RecordCount(retval long *pVal);
  236.  
  237.     [id(0x0000010f), propget, helpstring("property Filter")]
  238.     HRESULT Filter([retval] BSTR *pRet);
  239.     [id(0x0000010f), propput, helpstring("property Filter")]
  240.     HRESULT Filter(BSTR Val);
  241.  
  242.     [propget, id(0x000003f8), helpstring("property BOF")] 
  243.     HRESULT BOF([retval] VARIANT_BOOL *pVal);
  244.     [propget, id(0x000003f9), helpstring("property EOF")] 
  245.     HRESULT EOF([retval] VARIANT_BOOL *pVal);
  246.  
  247. ]
  248. [methods:
  249.     [id(1), helpstring("method Close")]
  250.     HRESULT Close();
  251.     [id(2), helpstring("method Activate")]
  252.     HRESULT Activate();
  253.  
  254.     [id(0x0000082a), helpstring("method MoveFirst")]
  255.     HRESULT MoveFirst();
  256.     [id(0x0000082f), helpstring("method MoveLast")]
  257.     HRESULT MoveLast();
  258.     [id(0x0000082e), helpstring("method MoveNext")]
  259.     HRESULT MoveNext();
  260.     [id(0x0000082d), helpstring("method MovePrevious")]
  261.     HRESULT MovePrevious();
  262.     [id(0xfffffdda), helpstring("method Refresh")]
  263.     HRESULT Refresh();
  264.  
  265.     [id(0x000003f2), helpstring("method FindNext")]
  266.     HRESULT FindNext(BSTR FindCriteria); 
  267.     [id(0x000003f3), helpstring("method FindPrevious")]
  268.     HRESULT FindPrevious(BSTR FindCriteria); 
  269.     [id(0x000003f4), helpstring("method FindFirst")]        
  270.     HRESULT FindFirst(BSTR FindCriteria); 
  271.     [id(0x000003f5), helpstring("method FindLast")]
  272.     HRESULT FindLast(BSTR FindCriteria); 
  273.  
  274.     [id(0x000003f6), helpstring("method Move")]
  275.     HRESULT Move(long RecordNumber); 
  276.     [id(0x000003f7), helpstring("method DeleteRecord")]
  277.     HRESULT DeleteRecord(); 
  278.     [id(0x000004f9), helpstring("method AddNewRecord")]
  279.     HRESULT AddNewRecord();
  280.     [id(0x000004f7), helpstring("method EditRecord")]
  281.     HRESULT EditRecord();
  282.     [id(0x000004f8), helpstring("method UpdateRecord")]
  283.     HRESULT UpdateRecord();
  284.  
  285. ]
  286. };
  287.  
  288.  
  289. class Report //////
  290. {
  291. [properties:
  292.  
  293.     [id(0x00000027), propget, helpstring("property ReportName")]
  294.     HRESULT ReportName([retval] BSTR *pRet);
  295.     [id(0x00000014), propget, helpstring("property Name")]
  296.     HRESULT Name([retval] BSTR *pRet);
  297.     [id(0x0000082b), propget, helpstring("property Properties")]
  298.     HRESULT Properties([retval] IProperties **ppRet);
  299.     [id(00000000), propget, helpstring("property Controls")]
  300.     HRESULT Controls([retval] IControls **ppRet);
  301.  
  302.     [propget, id(3), helpstring("property Database")] 
  303.     HRESULT Database([retval] IDatabase* *pVal);
  304.     [propget, id(4), helpstring("property Type")] 
  305.     HRESULT Type([retval] long *pVal);
  306.     [id(2097), propget, helpstring("property Report")]
  307.     HRESULT Report( retval Report **ppRet);
  308. ]
  309. [methods:
  310.     [id(2153), helpstring("method Print")]
  311.     HRESULT Print();
  312.     [id(1), helpstring("method Close")]
  313.     HRESULT Close();
  314.     [id(2), helpstring("method Activate")]
  315.     HRESULT Activate();
  316. ]
  317. };
  318.  
  319. class Reports //////
  320. {
  321. [properties:
  322.     [id(2005), propget, helpstring("property Application")]
  323.     HRESULT Application( retval Application **ppRet);
  324.     [id(2087), propget, helpstring("property Parent")]
  325.     HRESULT Parent( retval IDispatch **ppRet);
  326.     [id(00000000), propget, helpstring("property Item")]
  327.     HRESULT Item( VARIANT Index,  retval Report **ppRet);
  328.     [id(2001), propget, helpstring("property Count")]
  329.     HRESULT Count( retval long *pRet);
  330. ]
  331. [methods:
  332.     [id(1), helpstring("method Open")] 
  333.     HRESULT Open(VARIANT Index, [retval]Report** ppRet);
  334. ]
  335. };
  336.  
  337.  
  338. class AbDataProperty //////
  339. {
  340. [properties:
  341.     [id(2005), propget, helpstring("property Application")]
  342.     HRESULT Application( [retval] Application **ppRet);
  343.     [id(2087), propget, helpstring("property Parent")]
  344.     HRESULT Parent( [retval] IDispatch **ppRet);
  345. ]
  346. };
  347.  
  348. class Database //////
  349. {
  350. [properties:
  351.     [propget, id(2), helpstring("property Tables")] 
  352.     HRESULT Tables([retval] ITables* *pVal);
  353.     [propget, id(3), helpstring("property Querys")] 
  354.     HRESULT Queries([retval] IQueries* *pVal);
  355.     [propget, id(4), helpstring("property Relations")] 
  356.     HRESULT Relations([retval] IRelations* *pVal);
  357.     [propget, id(5), helpstring("property DBForms")] 
  358.     HRESULT DBForms([retval] IDBForms* *pVal);
  359.     [propget, id(6), helpstring("property Reports")] 
  360.     HRESULT Reports([retval] IReports* *pVal);
  361.     [propget, id(9), helpstring("property Name")]
  362.     HRESULT Name([retval] BSTR *pVal);
  363.     [propget, id(10), helpstring("property Admin")]
  364.     HRESULT Admin([retval] Database* *pVal);
  365. ]
  366. [methods:
  367.     [id(8), helpstring("method Close")] 
  368.     HRESULT Close();
  369.     [id(11), helpstring("method Execute")] 
  370.     HRESULT Execute(BSTR SQLStat);
  371.  
  372. ]
  373. };
  374.  
  375. class Databases //////
  376. {
  377. [properties:
  378.     [propget, id(8), helpstring("property Application")]
  379.     HRESULT Application([retval] IDispatch* *pVal);
  380.     [propget, id(0), helpstring("property Item")]
  381.     HRESULT Item(VARIANT Index, [retval] IDatabase* *pVal);
  382.     [propget, id(10), helpstring("property Count")] 
  383.     HRESULT Count([retval] long *pVal);
  384. ]
  385. [methods:
  386.     [id(5), helpstring("method Open")]
  387.     HRESULT Open(BSTR fileName, VARIANT_BOOL exclusive);
  388.     [id(6), helpstring("method Add")]
  389.     HRESULT Add(BSTR filepath);
  390. ]
  391. };
  392.  
  393.     
  394. class BField //////
  395. {
  396. [properties:
  397.     [id(0x00000014), propget, helpstring("property Name")]
  398.     HRESULT Name([retval] BSTR *pRet);
  399.     [id(0x00000014), propput, helpstring("property Name")]
  400.     HRESULT Name(BSTR pRet);
  401.  
  402.     [id(0x0000001c), propget, helpstring("property BackColor")]
  403.     HRESULT BackColor([retval] long *pRet);
  404.     [id(0x000000cb), propget, helpstring("property ForeColor")]
  405.     HRESULT ForeColor([retval] long *pRet);
  406.     [id(0x000000cb), propput, helpstring("property ForeColor")]
  407.     HRESULT ForeColor(long pRet);
  408.  
  409.     [id(0x00000022), propget, helpstring("property FontName")]
  410.     HRESULT FontName([retval] BSTR *pRet);
  411.     [id(0x00000022), propput, helpstring("property FontName")]
  412.     HRESULT FontName(BSTR pRet);
  413.     [id(0x00000023), propget, helpstring("property FontSize")]
  414.     HRESULT FontSize([retval] short *pRet);
  415.     [id(0x00000023), propput, helpstring("property FontSize")]
  416.     HRESULT FontSize(short pRet);
  417.     [id(0x00000025), propget, helpstring("property FontWeight")]
  418.     HRESULT FontWeight([retval] short *pRet);
  419.     [id(0x00000025), propput, helpstring("property FontWeight")]
  420.     HRESULT FontWeight(short pRet);
  421.     [id(0x00000021), propget, helpstring("property FontItalic")]
  422.     HRESULT FontItalic([retval] VARIANT_BOOL *pRet);
  423.     [id(0x00000021), propput, helpstring("property FontItalic")]
  424.     HRESULT FontItalic(VARIANT_BOOL pRet);
  425.     [id(0x00000020), propget, helpstring("property FontBold")]
  426.     HRESULT FontBold([retval] short *pRet);
  427.     [id(0x00000020), propput, helpstring("property FontBold")]
  428.     HRESULT FontBold(short pRet);
  429. ]
  430. };
  431.  
  432.  
  433. class Table //////
  434. {
  435. [properties:
  436.  
  437.     [propget, id(0x0000000D), helpstring("property Database")] 
  438.     HRESULT Database([retval] IDatabase* *pVal);
  439.     [propget, id(0x0000000E), helpstring("property Type")] 
  440.     HRESULT Type([retval] long *pVal);
  441.     [id(1), helpstring("property Fields")]
  442.     HRESULT Fields( retval Fields ** ppRet);
  443.     [id(2), propget, helpstring("property Name")]
  444.     HRESULT Name( retval BSTR * pVal);
  445.     [id(7), propget, helpstring("property CurrentRecord")]
  446.     HRESULT CurrentRecord( retval long * pRet);
  447.     [id(7), propput, helpstring("property CurrentRecord")]
  448.     HRESULT CurrentRecord( long pRet);
  449.     [propget, id(0x00000010), helpstring("property RecordCount")]
  450.     HRESULT RecordCount(retval long *pVal);
  451.     [propget, id(0x00000011), helpstring("property BOF")]
  452.     HRESULT BOF(retval VARIANT_BOOL *pVal);
  453.     [propget, id(0x00000012), helpstring("property EOF")]
  454.     HRESULT EOF(retval VARIANT_BOOL *pVal);
  455.     
  456.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  457.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  458.  
  459.     [id(0x0000010f), propget, helpstring("property Filter")]
  460.     HRESULT Filter([retval] BSTR *pRet);
  461.     [id(0x0000010f), propput, helpstring("property Filter")]
  462.     HRESULT Filter(BSTR Val);
  463.  
  464. ]
  465. [methods:
  466.     [id(0x00000008), helpstring("method EditRecord")]
  467.     HRESULT EditRecord();
  468.     [id(0x00000009), helpstring("method AddNewRecord")]
  469.     HRESULT AddNewRecord();
  470.     [id(0x0000000A), helpstring("method UpdateRecord")]
  471.     HRESULT UpdateRecord();
  472.  
  473.     [id(3), helpstring("method MoveFirst")]
  474.     HRESULT MoveFirst();
  475.     [id(4), helpstring("method MoveLast")]
  476.     HRESULT MoveLast();
  477.     [id(5), helpstring("method MoveNext")]
  478.     HRESULT MoveNext();
  479.     [id(6), helpstring("method MovePrevious")]
  480.     HRESULT MovePrevious();
  481.     [id(0x0000000B), helpstring("method Close")]
  482.     HRESULT Close();
  483.     [id(0x0000000C), helpstring("method Activate")] 
  484.     HRESULT Activate();
  485.  
  486.     [id(0x000003f2), helpstring("method FindNext")]
  487.     HRESULT FindNext(BSTR FindCriteria); 
  488.     [id(0x000003f3), helpstring("method FindPrevious")]
  489.     HRESULT FindPrevious(BSTR FindCriteria); 
  490.     [id(0x000003f4), helpstring("method FindFirst")]        
  491.     HRESULT FindFirst(BSTR FindCriteria); 
  492.     [id(0x000003f5), helpstring("method FindLast")]
  493.     HRESULT FindLast(BSTR FindCriteria); 
  494.  
  495.     [id(0x000003f6), helpstring("method Move")]
  496.     HRESULT Move( long RecordNumber); 
  497.  
  498.     [id(0x000003f7), helpstring("method DeleteRecord")]
  499.     HRESULT DeleteRecord(); 
  500.     [id(0xfffffdda), helpstring("method Refresh")]
  501.     HRESULT Refresh();
  502.  
  503.  
  504.  
  505. ]
  506. };    
  507.  
  508.  
  509. class Query //////
  510. {
  511. [properties:
  512.     [propget, id(0x0000000D), helpstring("property Database")] 
  513.     HRESULT Database([retval] IDatabase* *pVal);
  514.     [propget, id(0x0000000E), helpstring("property Type")] 
  515.     HRESULT Type([retval] long *pVal);
  516.     [id(1), helpstring("property Fields")]
  517.     HRESULT Fields( retval Fields ** ppRet);
  518.     [id(2), propput, helpstring("property Name")]
  519.     HRESULT Name( retval BSTR * pVal);
  520.     [id(2), propget, helpstring("property Name")]
  521.     HRESULT Name( BSTR Val);
  522.     [id(7), propget, helpstring("property CurrentRecord")]
  523.     HRESULT CurrentRecord( retval long * pRet);
  524.     [id(7), propput, helpstring("property CurrentRecord")]
  525.     HRESULT CurrentRecord( long pRet);
  526.     [propget, id(0x00000010), helpstring("property RecordCount")]
  527.     HRESULT RecordCount(retval long *pVal);
  528.     [propget, id(0x00000011), helpstring("property BOF")]
  529.     HRESULT BOF(retval VARIANT_BOOL *pVal);
  530.     [propget, id(0x00000012), helpstring("property EOF")]
  531.     HRESULT EOF(retval VARIANT_BOOL *pVal);
  532.  
  533.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  534.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  535.  
  536.     [id(0x0000010f), propget, helpstring("property Filter")]
  537.     HRESULT Filter([retval] BSTR *pRet);
  538.     [id(0x0000010f), propput, helpstring("property Filter")]
  539.     HRESULT Filter(BSTR Val);
  540.  
  541. ]
  542. [methods:
  543.  
  544.     [id(0x00000008), helpstring("method EditRecord")]
  545.     HRESULT EditRecord();
  546.     [id(0x00000009), helpstring("method AddNewRecord")]
  547.     HRESULT AddNewRecord();
  548.     [id(0x0000000A), helpstring("method UpdateRecord")]
  549.     HRESULT UpdateRecord();
  550.  
  551.     [id(3), helpstring("method MoveFirst")]
  552.     HRESULT MoveFirst();
  553.     [id(4), helpstring("method MoveLast")]
  554.     HRESULT MoveLast();
  555.     [id(5), helpstring("method MoveNext")]
  556.     HRESULT MoveNext();
  557.     [id(6), helpstring("method MovePrevious")]
  558.     HRESULT MovePrevious();
  559.     [id(0x0000000B), helpstring("method Close")]
  560.     HRESULT Close();
  561.     [id(0x0000000C), helpstring("method Activate")]
  562.     HRESULT Activate();
  563.  
  564.     [id(0x000003f2), helpstring("method FindNext")]
  565.     HRESULT FindNext(BSTR FindCriteria); 
  566.     [id(0x000003f3), helpstring("method FindPrevious")]
  567.     HRESULT FindPrevious(BSTR FindCriteria); 
  568.     [id(0x000003f4), helpstring("method FindFirst")]        
  569.     HRESULT FindFirst(BSTR FindCriteria); 
  570.     [id(0x000003f5), helpstring("method FindLast")]
  571.     HRESULT FindLast(BSTR FindCriteria); 
  572.  
  573.     [id(0x00000018), helpstring("method Move")]
  574.     HRESULT Move(long RecordNumber); 
  575.  
  576.     [id(0x000003f7), helpstring("method DeleteRecord")]
  577.     HRESULT DeleteRecord(); 
  578.     [id(0xfffffdda), helpstring("method Refresh")]
  579.     HRESULT Refresh();
  580. ]
  581. };    
  582.  
  583. class Controls ///////
  584. {
  585. [properties:
  586.         [id(0x000007d5), propget, helpstring("property Application")]
  587.         HRESULT Application( [retval] Application **ppRet);
  588.  
  589.         [id(0x00000827), propget, helpstring("property Parent")]
  590.         HRESULT Parent([retval] IDispatch **ppRet);
  591.  
  592.         [id(00000000), propget, helpstring("property Item")]
  593.         HRESULT Item(VARIANT Index,  [retval] IDispatch **ppRet);
  594.  
  595.         [id(0x000007d1), propget, helpstring("property Count")]
  596.         HRESULT Count( [retval] long *pRet);
  597. ]
  598. };
  599.  
  600. class Relation //////
  601. {
  602. [properties:
  603.     [propget, id(0x0000000D), helpstring("property Database")] 
  604.     HRESULT Database([retval] IDatabase* *pVal);
  605.     [propget, id(0x0000000E), helpstring("property Type")] 
  606.     HRESULT Type([retval] long *pVal);
  607.     [id(1), helpstring("property Fields")]
  608.     HRESULT Fields( retval Fields ** ppRet);
  609.     [id(2), propget, helpstring("property Name")]
  610.     HRESULT Name( retval BSTR * pVal);
  611.     [id(2), propput, helpstring("property Name")]
  612.     HRESULT Name( BSTR Val);
  613.     [id(7), propget, helpstring("property CurrentRecord")]
  614.     HRESULT CurrentRecord( retval long * pRet);
  615.     [id(7), propput, helpstring("property CurrentRecord")]
  616.     HRESULT CurrentRecord( long pRet);
  617.     [propget, id(0x00000010), helpstring("property RecordCount")]
  618.     HRESULT RecordCount(retval long *pVal);
  619.     [propget, id(0x00000011), helpstring("property BOF")]
  620.     HRESULT BOF(retval VARIANT_BOOL *pVal);
  621.     [propget, id(0x00000012), helpstring("property EOF")]
  622.     HRESULT EOF(retval VARIANT_BOOL *pVal);
  623.  
  624.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  625.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  626.  
  627.     [id(0x0000010f), propget, helpstring("property Filter")]
  628.     HRESULT Filter([retval] BSTR *pRet);
  629.     [id(0x0000010f), propput, helpstring("property Filter")]
  630.     HRESULT Filter(BSTR Val);
  631.  
  632. ]
  633. [methods:
  634.     [id(0x00000008), helpstring("method EditRecord")]
  635.     HRESULT EditRecord();
  636.     [id(0x00000009), helpstring("method AddNewRecord")]
  637.     HRESULT AddNewRecord();
  638.     [id(0x0000000A), helpstring("method UpdateRecord")]
  639.     HRESULT UpdateRecord();
  640.     
  641.     [id(3), helpstring("method MoveFirst")]
  642.     HRESULT MoveFirst();
  643.     [id(4), helpstring("method MoveLast")]
  644.     HRESULT MoveLast();
  645.     [id(5), helpstring("method MoveNext")]
  646.     HRESULT MoveNext();
  647.     [id(6), helpstring("method MovePrevious")]
  648.     HRESULT MovePrevious();
  649.     [id(0x0000000B), helpstring("method Close")]
  650.     HRESULT Close();
  651.     [id(0x0000000C), helpstring("method Activate")] 
  652.     HRESULT Activate();
  653.  
  654.     [id(0x000003f2), helpstring("method FindNext")]
  655.     HRESULT FindNext(BSTR FindCriteria); 
  656.     [id(0x000003f3), helpstring("method FindPrevious")]
  657.     HRESULT FindPrevious(BSTR FindCriteria); 
  658.     [id(0x000003f4), helpstring("method FindFirst")]        
  659.     HRESULT FindFirst(BSTR FindCriteria); 
  660.     [id(0x000003f5), helpstring("method FindLast")]
  661.     HRESULT FindLast(BSTR FindCriteria); 
  662.  
  663.     [id(0x000003f6), helpstring("method Move")]
  664.     HRESULT Move(long RecordNumber); 
  665.     [id(0xfffffdda), helpstring("method Refresh")]
  666.     HRESULT Refresh();
  667.  
  668. ]
  669. };    
  670.